home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / ASRegistry.mod < prev    next >
Encoding:
Text File  |  1995-08-07  |  12.0 KB  |  269 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        ASRegistry.mod
  3.  
  4.      Contains:    AppleScript Registry constants.
  5.  
  6.      Version:    Technology:    AppleScript 1.1
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE ASRegistry;
  23.  
  24. IMPORT AppleEvents, AERegistry, AEObjects;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     keyAETarget*                    = LONG("targ");                        (*  0x74617267  *)
  32.     keySubjectAttr*                = LONG("subj");                        (*  0x7375626a  *)
  33. (* Magic 'returning' parameter*: *)
  34.     keyASReturning*                = LONG("Krtn");                        (*  0x4b72746e  *)
  35. (* AppleScript Specific Codes*: *)
  36.     kASAppleScriptSuite*            = LONG("ascr");                        (*  0x61736372  *)
  37.     kASTypeNamesSuite*            = LONG("tpnm");                        (*  0x74706e6d  *)
  38. (* dynamic terminologies *)
  39.     typeAETE*                    = LONG("aete");                        (*  0x61657465  *)
  40.     typeAEUT*                    = LONG("aeut");                        (*  0x61657574  *)
  41.     kGetAETE*                    = LONG("gdte");                        (*  0x67647465  *)
  42.     kGetAEUT*                    = LONG("gdut");                        (*  0x67647574  *)
  43.     kUpdateAEUT*                    = LONG("udut");                        (*  0x75647574  *)
  44.     kUpdateAETE*                    = LONG("udte");                        (*  0x75647465  *)
  45.     kCleanUpAEUT*                = LONG("cdut");                        (*  0x63647574  *)
  46.     kASComment*                    = LONG("cmnt");                        (*  0x636d6e74  *)
  47.     kASLaunchEvent*                = LONG("noop");                        (*  0x6e6f6f70  *)
  48.     keyScszResource*                = LONG("scsz");                        (*  0x7363737A  *)
  49.     typeScszResource*            = LONG("scsz");                        (*  0x7363737A  *)
  50. (* subroutine calls *)
  51.     kASSubroutineEvent*            = LONG("psbr");                        (*  0x70736272  *)
  52.     keyASSubroutineName*            = LONG("snam");
  53.  
  54. (* Operator Events*: *)
  55. (* Binary*: *)
  56.     kASAdd*                        = LONG("+   ");                        (*  0x2b202020  *)
  57.     kASSubtract*                    = LONG("-   ");                        (*  0x2d202020  *)
  58.     kASMultiply*                    = LONG("*   ");                        (*  0x2a202020  *)
  59.     kASDivide*                    = LONG("/   ");                        (*  0x2f202020  *)
  60.     kASQuotient*                    = LONG("div ");                        (*  0x64697620  *)
  61.     kASRemainder*                = LONG("mod ");                        (*  0x6d6f6420  *)
  62.     kASPower*                    = LONG("^   ");                        (*  0x5e202020  *)
  63.     kASEqual*                    = AERegistry.kAEEquals;
  64.     kASNotEqual*                    = LONG("≠   ");                        (*  0xad202020  *)
  65.     kASGreaterThan*                = AERegistry.kAEGreaterThan;
  66.     kASGreaterThanOrEqual*        = AERegistry.kAEGreaterThanEquals;
  67.     kASLessThan*                    = AERegistry.kAELessThan;
  68.     kASLessThanOrEqual*            = AERegistry.kAELessThanEquals;
  69.     kASComesBefore*                = LONG("cbfr");                        (*  0x63626672  *)
  70.     kASComesAfter*                = LONG("cafr");                        (*  0x63616672  *)
  71.     kASConcatenate*                = LONG("ccat");                        (*  0x63636174  *)
  72.     kASStartsWith*                = AERegistry.kAEBeginsWith;
  73.     kASEndsWith*                    = AERegistry.kAEEndsWith;
  74.     kASContains*                    = AERegistry.kAEContains;
  75.  
  76.     kASAnd*                        = AEObjects.kAEAND;
  77.     kASOr*                        = AEObjects.kAEOR;
  78. (* Unary*: *)
  79.     kASNot*                        = AEObjects.kAENOT;
  80.     kASNegate*                    = LONG("neg ");                        (*  0x6e656720  *)
  81.     keyASArg*                    = LONG("arg ");
  82.  
  83. (* event code for the 'error' statement *)
  84.     kASErrorEventCode*            = LONG("err ");                        (*  0x65727220  *)
  85.     kOSAErrorArgs*                = LONG("erra");                        (*  0x65727261  *)
  86. (* Properties*: *)
  87.     pLength*                        = LONG("leng");                        (*  0x6c656e67  *)
  88.     pReverse*                    = LONG("rvse");                        (*  0x72767365  *)
  89.     pRest*                        = LONG("rest");                        (*  0x72657374  *)
  90.     pInherits*                    = LONG("c.#POINTER TO ");                        (*  0x6340235e  *)
  91. (* User-Defined Record Fields*: *)
  92.     keyASUserRecordFields*        = LONG("usrf");                        (*  0x75737266  *)
  93.     typeUserRecordFields*        = AppleEvents.typeAEList;
  94.  
  95. (* Prepositions*: *)
  96.     keyASPrepositionAt*            = LONG("at  ");                        (*  0x61742020  *)
  97.     keyASPrepositionIn*            = LONG("in  ");                        (*  0x696e2020  *)
  98.     keyASPrepositionFrom*        = LONG("from");                        (*  0x66726f6d  *)
  99.     keyASPrepositionFor*            = LONG("for ");                        (*  0x666f7220  *)
  100.     keyASPrepositionTo*            = LONG("to  ");                        (*  0x746f2020  *)
  101.     keyASPrepositionThru*        = LONG("thru");                        (*  0x74687275  *)
  102.     keyASPrepositionThrough*        = LONG("thgh");                        (*  0x74686768  *)
  103.     keyASPrepositionBy*            = LONG("by  ");                        (*  0x62792020  *)
  104.     keyASPrepositionOn*            = LONG("on  ");                        (*  0x6f6e2020  *)
  105.     keyASPrepositionInto*        = LONG("into");                        (*  0x696e746f  *)
  106.     keyASPrepositionOnto*        = LONG("onto");                        (*  0x6f6e746f  *)
  107.     keyASPrepositionBetween*        = LONG("btwn");                        (*  0x6274776e  *)
  108.     keyASPrepositionAgainst*        = LONG("agst");                        (*  0x61677374  *)
  109.     keyASPrepositionOutOf*        = LONG("outo");                        (*  0x6f75746f  *)
  110.     keyASPrepositionInsteadOf*    = LONG("isto");                        (*  0x6973746f  *)
  111.     keyASPrepositionAsideFrom*    = LONG("asdf");                        (*  0x61736466  *)
  112.     keyASPrepositionAround*        = LONG("arnd");                        (*  0x61726e64  *)
  113.     keyASPrepositionBeside*        = LONG("bsid");                        (*  0x62736964  *)
  114.     keyASPrepositionBeneath*        = LONG("bnth");                        (*  0x626e7468  *)
  115.     keyASPrepositionUnder*        = LONG("undr");
  116.  
  117.     keyASPrepositionOver*        = LONG("over");                        (*  0x6f766572  *)
  118.     keyASPrepositionAbove*        = LONG("abve");                        (*  0x61627665  *)
  119.     keyASPrepositionBelow*        = LONG("belw");                        (*  0x62656c77  *)
  120.     keyASPrepositionApartFrom*    = LONG("aprt");                        (*  0x61707274  *)
  121.     keyASPrepositionGiven*        = LONG("givn");                        (*  0x6769766e  *)
  122.     keyASPrepositionWith*        = LONG("with");                        (*  0x77697468  *)
  123.     keyASPrepositionWithout*        = LONG("wout");                        (*  0x776f7574  *)
  124.     keyASPrepositionAbout*        = LONG("abou");                        (*  0x61626f75  *)
  125.     keyASPrepositionSince*        = LONG("snce");                        (*  0x736e6365  *)
  126.     keyASPrepositionUntil*        = LONG("till");
  127.  
  128. (* Terminology & Dialect things*: *)
  129.     kDialectBundleResType*        = LONG("Dbdl");                        (*  0x4462646c  *)
  130. (* AppleScript Classes and Enums*: *)
  131.     cConstant*                    = AppleEvents.typeEnumerated;
  132.     cClassIdentifier*            = AERegistry.pClass;
  133.     cObjectBeingExamined*        = AEObjects.typeObjectBeingExamined;
  134.     cList*                        = AppleEvents.typeAEList;
  135.     cSmallReal*                    = AppleEvents.typeSMFloat;
  136.     cReal*                        = AppleEvents.typeFloat;
  137.     cRecord*                        = AppleEvents.typeAERecord;
  138.     cReference*                    = AERegistry.cObjectSpecifier;
  139.     cUndefined*                    = LONG("undf");                        (*  0x756e6466  *)
  140.     cSymbol*                        = LONG("symb");                        (*  0x73796d62  *)
  141.     cLinkedList*                    = LONG("llst");                        (*  0x6c6c7374  *)
  142.     cVector*                        = LONG("vect");                        (*  0x76656374  *)
  143.     cEventIdentifier*            = LONG("evnt");                        (*  0x65766e74  *)
  144.     cKeyIdentifier*                = LONG("kyid");                        (*  0x6b796964  *)
  145.     cUserIdentifier*                = LONG("uid ");                        (*  0x75696420  *)
  146.     cPreposition*                = LONG("prep");                        (*  0x70726570  *)
  147.     cKeyForm*                    = AERegistry.enumKeyForm;
  148.     cScript*                        = LONG("scpt");                        (*  0x73637074  *)
  149.     cHandler*                    = LONG("hand");                        (*  0x68616e64  *)
  150.     cProcedure*                    = LONG("proc");
  151.  
  152.     cClosure*                    = LONG("clsr");                        (*  0x636c7372  *)
  153.     cRawData*                    = LONG("rdat");                        (*  0x72646174  *)
  154.     cString*                        = AppleEvents.typeChar;
  155.     cStringClass*                = AppleEvents.typeChar;
  156.     cNumber*                        = LONG("nmbr");                        (*  0x6e6d6272  *)
  157.     cListOrRecord*                = LONG("lr  ");                        (*  0x6c722020  *)
  158.     cListOrString*                = LONG("ls  ");                        (*  0x6c732020  *)
  159.     cListRecordOrString*            = LONG("lrs ");                        (*  0x6c727320  *)
  160.     cNumberOrDateTime*            = LONG("nd  ");                        (*  0x6e642020  *)
  161.     cNumberDateTimeOrString*        = LONG("nds ");                        (*  0x6e647320  *)
  162.     cSeconds*                    = LONG("scnd");                        (*  0x73636e64  *)
  163.     enumBooleanValues*            = LONG("boov");                        (*  0x626f6f76  *)
  164.     kAETrue*                        = AppleEvents.typeTrue;
  165.     kAEFalse*                    = AppleEvents.typeFalse;
  166.     enumMiscValues*                = LONG("misc");                        (*  0x6d697363  *)
  167.     kASCurrentApplication*        = LONG("cura");                        (*  0x63757261  *)
  168. (* User-defined property ospecs*: *)
  169.     formUserPropertyID*            = LONG("usrp");
  170.  
  171. (* Global properties*: *)
  172.     pASIt*                        = LONG("it  ");                        (*  0x69742020  *)
  173.     pASMe*                        = LONG("me  ");                        (*  0x6d652020  *)
  174.     pASResult*                    = LONG("rslt");                        (*  0x72736c74  *)
  175.     pASSpace*                    = LONG("spac");                        (*  0x73706163  *)
  176.     pASReturn*                    = LONG("ret ");                        (*  0x72657420  *)
  177.     pASTab*                        = LONG("tab ");                        (*  0x74616220  *)
  178.     pASPi*                        = LONG("pi  ");                        (*  0x70692020  *)
  179.     pASParent*                    = LONG("pare");                        (*  0x70617265  *)
  180.     kASInitializeEventCode*        = LONG("init");                        (*  0x696e6974  *)
  181.     pASPrintLength*                = LONG("prln");                        (*  0x70726c6e  *)
  182.     pASPrintDepth*                = LONG("prdp");                        (*  0x70726470  *)
  183.     pASTopLevelScript*            = LONG("ascr");
  184.  
  185. (* Considerations *)
  186.     kAECase*                        = LONG("case");                        (*  0x63617365  *)
  187.     kAEDiacritic*                = LONG("diac");                        (*  0x64696163  *)
  188.     kAEWhiteSpace*                = LONG("whit");                        (*  0x77686974  *)
  189.     kAEHyphens*                    = LONG("hyph");                        (*  0x68797068  *)
  190.     kAEExpansion*                = LONG("expa");                        (*  0x65787061  *)
  191.     kAEPunctuation*                = LONG("punc");                        (*  0x70756e63  *)
  192.     kAEZenkakuHankaku*            = LONG("zkhk");                        (*  0x7a6b686b  *)
  193.     kAESmallKana*                = LONG("skna");                        (*  0x736b6e61  *)
  194.     kAEKataHiragana*                = LONG("hika");                        (*  0x68696b61  *)
  195. (* AppleScript considerations*: *)
  196.     kASConsiderReplies*            = LONG("rmte");                        (*  0x726d7465  *)
  197.     enumConsiderations*            = LONG("cons");
  198.  
  199.     cCoercion*                    = LONG("coec");                        (*  0x636f6563  *)
  200.     cCoerceUpperCase*            = LONG("txup");                        (*  0x74787570  *)
  201.     cCoerceLowerCase*            = LONG("txlo");                        (*  0x74786c6f  *)
  202.     cCoerceRemoveDiacriticals*    = LONG("txdc");                        (*  0x74786463  *)
  203.     cCoerceRemovePunctuation*    = LONG("txpc");                        (*  0x74787063  *)
  204.     cCoerceRemoveHyphens*        = LONG("txhy");                        (*  0x74786879  *)
  205.     cCoerceOneByteToTwoByte*        = LONG("txex");                        (*  0x74786578  *)
  206.     cCoerceRemoveWhiteSpace*        = LONG("txws");                        (*  0x74787773  *)
  207.     cCoerceSmallKana*            = LONG("txsk");                        (*  0x7478736b  *)
  208.     cCoerceZenkakuhankaku*        = LONG("txze");                        (*  0x74787a65  *)
  209.     cCoerceKataHiragana*            = LONG("txkh");                        (*  0x74786b68  *)
  210. (* Lorax things*: *)
  211.     cZone*                        = LONG("zone");                        (*  0x7a6f6e65  *)
  212.     cMachine*                    = LONG("mach");                        (*  0x6d616368  *)
  213.     cAddress*                    = LONG("addr");                        (*  0x61646472  *)
  214.     cRunningAddress*                = LONG("radd");                        (*  0x72616464  *)
  215.     cStorage*                    = LONG("stor");
  216.  
  217. (* DateTime things*: *)
  218.     pASWeekday*                    = LONG("wkdy");                        (*  0x776b6479  *)
  219.     pASMonth*                    = LONG("mnth");                        (*  0x6d6e7468  *)
  220.     pASDay*                        = LONG("day ");                        (*  0x64617920  *)
  221.     pASYear*                        = LONG("year");                        (*  0x79656172  *)
  222.     pASTime*                        = LONG("time");                        (*  0x74696d65  *)
  223.     pASDateString*                = LONG("dstr");                        (*  0x64737472  *)
  224.     pASTimeString*                = LONG("tstr");                        (*  0x74737472  *)
  225. (* Months *)
  226.     cMonth*                        = pASMonth;
  227.     cJanuary*                    = LONG("jan ");                        (*  0x6a616e20  *)
  228.     cFebruary*                    = LONG("feb ");                        (*  0x66656220  *)
  229.     cMarch*                        = LONG("mar ");                        (*  0x6d617220  *)
  230.     cApril*                        = LONG("apr ");                        (*  0x61707220  *)
  231.     cMay*                        = LONG("may ");                        (*  0x6d617920  *)
  232.     cJune*                        = LONG("jun ");                        (*  0x6a756e20  *)
  233.     cJuly*                        = LONG("jul ");                        (*  0x6a756c20  *)
  234.     cAugust*                        = LONG("aug ");                        (*  0x61756720  *)
  235.     cSeptember*                    = LONG("sep ");                        (*  0x73657020  *)
  236.     cOctober*                    = LONG("oct ");                        (*  0x6f637420  *)
  237.     cNovember*                    = LONG("nov ");                        (*  0x6e6f7620  *)
  238.     cDecember*                    = LONG("dec ");
  239.  
  240. (* Weekdays *)
  241.     cWeekday*                    = pASWeekday;
  242.     cSunday*                        = LONG("sun ");                        (*  0x73756e20  *)
  243.     cMonday*                        = LONG("mon ");                        (*  0x6d6f6e20  *)
  244.     cTuesday*                    = LONG("tue ");                        (*  0x74756520  *)
  245.     cWednesday*                    = LONG("wed ");                        (*  0x77656420  *)
  246.     cThursday*                    = LONG("thu ");                        (*  0x74687520  *)
  247.     cFriday*                        = LONG("fri ");                        (*  0x66726920  *)
  248.     cSaturday*                    = LONG("sat ");                        (*  0x73617420  *)
  249. (* AS 1.1 Globals*: *)
  250.     pASQuote*                    = LONG("quot");                        (*  0x71756f74  *)
  251.     pASSeconds*                    = LONG("secs");                        (*  0x73656373  *)
  252.     pASMinutes*                    = LONG("min ");                        (*  0x6d696e20  *)
  253.     pASHours*                    = LONG("hour");                        (*  0x686f7572  *)
  254.     pASDays*                        = LONG("days");                        (*  0x64617973  *)
  255.     pASWeeks*                    = LONG("week");                        (*  0x7765656b  *)
  256. (* Writing Code things*: *)
  257.     cWritingCodeInfo*            = LONG("citl");                        (*  0x6369746c  *)
  258.     pScriptCode*                    = LONG("pscd");                        (*  0x70736364  *)
  259.     pLangCode*                    = LONG("plcd");                        (*  0x706c6364  *)
  260. (* Magic Tell and End Tell events for logging*: *)
  261.     kASMagicTellEvent*            = LONG("tell");                        (*  0x74656c6c  *)
  262.     kASMagicEndTellEvent*        = LONG("tend");
  263.  
  264.  
  265. (* $ALIGN RESET*)
  266. (* $POP*)
  267.  
  268.  END ASRegistry.
  269.